home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD023b.dsk / APPLEWAIT.bas < prev    next >
BASIC Source File  |  2003-06-12  |  14KB  |  321 lines
  1. 0  REM   <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H> APPLEWAIT PROGRAM BY <CTRL-M><CTRL-M> ERNIE MERLO<CTRL-M><CTRL-M> 2415 LINCOLN AVE.<CTRL-M> BELMONT, CA. 94002<CTRL-M> (415) 595-5945<CTRL-M><CTRL-M> <CTRL-M><CTRL-M>
  2. 1  PRINT  CHR$(4);"BLOAD WAIT,A$300"
  3. 2 :
  4. 3  TEXT : HOME 
  5. 4  ONERR  GOTO 310
  6. 5 :
  7. 6 :
  8. 7  REM     <CTRL-M><CTRL-M>    EDUCATION PROGRAM FOR <CTRL-M><CTRL-U><CTRL-U><CTRL-U><CTRL-U><CTRL-U>   SOFTDISK MAGAZETTE<CTRL-M>
  9. 8  REM  JULY 1983
  10. 9 WA = 768:C$ =  CHR$(34):D$ =  CHR$(4)
  11. 10  PRINT "HOW ABOUT A SMALL MACHINE LANGUAGE"
  12. 11  PRINT "SUBROUTINE TO HELP WITH YOUR PROGRAMING?"
  13. 12  PRINT : PRINT "THIS LITTLE SUBROUTINE IS CALLED "C$"WAIT"C$"."
  14. 13  PRINT C$"WAIT"C$" WILL HALT YOUR PROGRAM FOR"
  15. 14  PRINT "ANY LENGTH OF TIME AND RESUME ON ANY"
  16. 15  PRINT "KEYPRESS."
  17. 16  PRINT : PRINT C$"WAIT"C$" IS EASY TO PROGRAM AND IS"
  18. 17  PRINT "RELOCATABLE."
  19. 18  PRINT : PRINT "ONE OF THE BEST FEATURES IS THERE WILL"
  20. 19  PRINT "BE NO CURSOR BLINKING ON THE SCREEN"
  21. 20  PRINT "WHILE "C$"WAIT"C$" IS WORKING."
  22. 21  PRINT : PRINT C$"WAIT"C$" IS WORKING RIGHT NOW, DO YOU"
  23. 22  PRINT "SEE ANY CURSOR?        NO!"
  24. 23  PRINT : PRINT "PRESS ANY (I DO MEAN ANY) KEY.."
  25. 24  CALL WA
  26. 25  HOME 
  27. 26  PRINT "OK THERE IS ONE KEYPRESS THAT WILL"
  28. 27  PRINT "STOP "C$"WAIT"C$", RESET IS THE ONE."
  29. 28  PRINT "BUT ANY OTHER KEYPRESS, INCLUDING"
  30. 29  PRINT "CONTROL-C, WILL MOVE THE PROGRAM ALONG."
  31. 30  PRINT 
  32. 31  PRINT "AS YOU KNOW CONTROL-C WILL NORMALLY"
  33. 32  PRINT "HALT A  PROGRAM IN IT'S TRACKS."
  34. 33  PRINT 
  35. 34  PRINT "BUT IT (CONTROL-C) WILL NOT STOP "C$"WAIT"C$
  36. 35  PRINT : PRINT "(CONTROL-C WILL STOP THIS PROGRAM"
  37. 36  PRINT "IN ANY OTHER AREA WHERE "C$"WAIT"C$" IS NOT"
  38. 37  PRINT "WORKING.)"
  39. 38  PRINT : PRINT C$"WAIT"C$" CAN BE USEFUL IF YOU ARE"
  40. 39  PRINT "SHOWING YOUR PROGRAM TO A NON-COMPUTER"
  41. 40  PRINT "USER. THERE IS NOTHING THEY CAN DO TO"
  42. 41  PRINT "HALT YOUR PROGRAM, EXCEPT RESET, AND"
  43. 42  PRINT "ANY KEYPRESS WILL MOVE THE PROGRAM TO"
  44. 43  PRINT "THE NEXT STEP."
  45. 44  PRINT : PRINT "WE ARE "C$"WAITING"C$
  46. 45  CALL WA
  47. 46  HOME 
  48. 47  PRINT "BUT YOU MIGHT THINK, UGH! MACHINE "
  49. 48  PRINT "LANGUAGE, I CAN'T PROGRAM IN THAT!"
  50. 49  PRINT : PRINT "SURE YOU CAN; HERE IS THE LISTING FOR"
  51. 50  PRINT C$"WAIT"C$" .........."
  52. 51  PRINT : PRINT "AD 00 C0 10 FB 8D 10 C0 60"
  53. 52  PRINT : PRINT "NINE PAIRS OF MACHINE LANGUAGE CODE."
  54. 53  PRINT "THAT'S ALL IT TAKES TO MAKE "C$"WAIT"C$
  55. 54  PRINT : PRINT "AND I WILL SHOW YOU HOW TO ENTER THE"
  56. 55  PRINT "CODE, SAVE THE PROGRAM AND USE IT."
  57. 56  PRINT : PRINT "IF YOU NEVER PROGRAMED IN MACHINE"
  58. 57  PRINT "LANGUAGE BEFORE, THIS WILL BE A GOOD"
  59. 58  PRINT "START. YOU MACHINE LANGUAGE PROGRAMERS"
  60. 59  PRINT "MIGHT ADD THIS ROUTINE YOUR BASKET IF"
  61. 60  PRINT "YOU DON'T ALREADY HAVE A "C$"WAIT"C$" ROUTINE."
  62. 61  PRINT : PRINT "PRESS";: FLASH : PRINT "---->";: NORMAL : PRINT " ANY KEY...": CALL WA
  63. 62  HOME 
  64. 63  PRINT "ONE MORE THING THAT'S NEAT ABOUT "C$"WAIT"C$","
  65. 64  PRINT : PRINT "YOU DON'T HAVE TO WASTE A LINE WITH"
  66. 65  PRINT "THE "C$"PRESS A KEY"C$" PROMPT. YOU CAN"
  67. 66  PRINT "USE ALL 24 LINES TO DISPLAY YOUR DATA."
  68. 67  PRINT 
  69. 68  PRINT "AFTER THE USER IS FINISHED READING THE"
  70. 69  PRINT "SCREEN, THEY ARE BOUND TO PRESS SOME"
  71. 70  PRINT "KEY TO MOVE THE PROGRAM ALONG."
  72. 71  PRINT : PRINT "LET'S COMPARE "C$"WAIT"C$" TO SIMILAR"
  73. 72  PRINT "APPLESOFT COMMANDS AND TEST THE PRO'S"
  74. 73  PRINT "AND CON'S."
  75. 74  PRINT : PRINT "ONE WAY TO HALT AND CONTINUE A PROGRAM"
  76. 75  PRINT "IN BASIC IS TO PROGRAM-"
  77. 76  PRINT 
  78. 77  PRINT "100 INPUT"C$"PRESS RETURN"C$";A$"
  79. 78  VTAB 19: HTAB 27: FLASH : PRINT " ": NORMAL 
  80. 79  PRINT : PRINT "NOTICE THE FLASHING CURSOR."
  81. 80  CALL WA
  82. 81  HOME 
  83. 82  PRINT "100 INPUT "C$"PRESS RETURN"C$";A$";: FLASH : PRINT " ": NORMAL 
  84. 83  PRINT : PRINT "THE ABOVE ROUTINE ALSO USES ONE SCREEN"
  85. 84  PRINT "LINE AND LIMITS YOUR DATA TO 23 LINES."
  86. 85  PRINT : PRINT "ANOTHER BASIC ROUTINE IS-"
  87. 86  PRINT : PRINT "GET A$";: FLASH : PRINT " ": NORMAL 
  88. 87  PRINT : PRINT "AGAIN, THIS ROUTINE HAS THE FLASHING"
  89. 88  PRINT "CURSOR AND A LINE MUST BE USED FOR THE"
  90. 89  PRINT "PROMPT. NORMALLY WORDS ARE USED ALONG"
  91. 90  PRINT "WITH THIS PROMPT TO LET YOUR USER KNOW"
  92. 91  PRINT "WHAT IS GOING ON."
  93. 92  PRINT : PRINT "HERE IS A SAMPLE "C$"GET ROUTINE"C$
  94. 93  PRINT : PRINT "PRINT "C$"PRESS RETURN"C$";:GET A$";: FLASH : PRINT " ": NORMAL 
  95. 94  PRINT : PRINT "HERE IS WHAT BOTH THE ABOVE ROUTINES"
  96. 95  PRINT "WOULD LOOK LIKE IN YOUR PROGRAM"
  97. 96  PRINT 
  98. 97  PRINT "PRESS RETURN ";: FLASH : PRINT " ";: NORMAL : PRINT "   <------": CALL WA
  99. 98  HOME 
  100. 99  PRINT "HERE IS THE "C$"WAIT"C$" ROUTINE."
  101. 100  PRINT : PRINT "CALL W"
  102. 101  PRINT : PRINT "THAT'S IT. JUST CALL W."
  103. 102  PRINT : PRINT "OF COURSE IN THE BEGINING OF YOUR"
  104. 103  PRINT "PROGRAM YOU MUST ADD THIS LINE."
  105. 104  PRINT : PRINT "PRINT CHR$(4);"C$"BLOAD WAIT"C$"."
  106. 105  PRINT "AND ADD "C$"W = 768"C$
  107. 106  PRINT : PRINT "THIS LINE LOADS WAIT INTO YOUR APPLE"
  108. 107  PRINT "TO BE USED ANYTIME YOU WANT. JUST CALL W"
  109. 108  PRINT : PRINT "LET'S GO THROUGH THE PROGRAMING STEPS"
  110. 109  PRINT "AND SEE HOW EASY IT IS."
  111. 110  PRINT : PRINT "FIRST WE MUST GET INTO THE MONITOR."
  112. 111  PRINT : PRINT "START BY ENTERING "C$"CALL-151"C$
  113. 112  CALL WA
  114. 113  HOME 
  115. 114  PRINT "TYPE IN "C$"CALL-151"C$
  116. 115  PRINT "THIS WILL GIVE YOU THE MONITOR CURSOR"
  117. 116  PRINT "A * AND BLINKING BOX.";: PRINT " *";: FLASH : PRINT " ": NORMAL 
  118. 117  PRINT : PRINT "NEXT TYPE IN "C$"300L"C$" ."
  119. 118  PRINT : PRINT "THIS SHOULD GIVE YOU A LISTING LIKE"
  120. 119  PRINT "THIS.."
  121. 120  PRINT : PRINT "300-    00            BRK"
  122. 121  PRINT "301-    00            BRK"
  123. 122  PRINT "302-    00            BRK"
  124. 123  PRINT "303-    00            BRK"
  125. 124  PRINT "304-    00            BRK"
  126. 125  PRINT "305-    00            BRK"
  127. 126  PRINT "306-    00            BRK"
  128. 127  PRINT "307-    00            BRK"
  129. 128  PRINT : PRINT "ETC... THRU 318-    00            BRK"
  130. 129  PRINT : PRINT "THERE MAY BE OTHER CODE IN THIS"
  131. 130  PRINT "LOCATION, BUT DON'T WORRY ABOUT IT IF"
  132. 131  CALL WA
  133. 132  HOME 
  134. 133  PRINT "YOU HAVE NO OTHER MACHINE LANGUAGE"
  135. 134  PRINT "PROGRAMS IN USE."
  136. 135  PRINT : PRINT "(NOTE: "C$"WAIT"C$" IS RELOCATABLE"
  137. 136  PRINT "THAT MEANS YOU CAN BLOAD "C$"WAIT"C$
  138. 137  PRINT "TO ANY MEMORY LOCATION THAT IS UNUSED."
  139. 138  PRINT "YOU JUST HAVE TO BLOAD WAIT TO YOUR"
  140. 139  PRINT "NEW LOCATION AND CHANGE THE CALL TO "
  141. 140  PRINT "THAT LOCATION TO WAKE UP "C$"WAIT"C$
  142. 141  PRINT "OR YOU CAN PROGRAM "C$"WAIT"C$" INTO"
  143. 142  PRINT "ANY LOCATION AND SAVE HIM FROM THERE.)"
  144. 143  PRINT : PRINT "EXAMPLE: YOU PROGRAM "C$"WAIT"C$" AT LOCATION"
  145. 144  PRINT "$300 (768) AND BSAVE HIM WITH THE CODE"
  146. 145  PRINT : PRINT "BSAVE WAIT,A$300,L$009"
  147. 146  PRINT : PRINT "NOW DON'T PANIC! EVERYTHING WILL BE"
  148. 147  PRINT "EXPLAINED AS WE GO, EACH STEP WILL"
  149. 148  PRINT "BE CRYSTAL CLEAR."
  150. 149  CALL WA
  151. 150  HOME 
  152. 151  PRINT "ROLLING ALONG...."
  153. 152  PRINT : PRINT 
  154. 153  PRINT "WHEN YOU CALL-151 TO REACH THE MONITOR"
  155. 154  PRINT "AND TYPE 300L (PRESS RETURN) WE ARE"
  156. 155  PRINT "READY TO ENTER THE PROGRAM."
  157. 156  PRINT : PRINT "NOW ENTER THE CODE JUST LIKE THIS.."
  158. 157  PRINT : PRINT "300:AD 00 C0 10 FB 8D 10 C0 60"
  159. 158  PRINT : PRINT "THAT'S IT, THE PROGRAM IS FINISHED."
  160. 159  PRINT : PRINT "TO RECAP-"
  161. 160  PRINT : PRINT "JUST TYPE IN 300 :<-- COLON NEXT"
  162. 161  PRINT : PRINT "AND EACH PAIR OF CODE SEPERATED BY"
  163. 162  PRINT "A SPACE. EXACTLY LIKE THIS.."
  164. 163  PRINT : PRINT ":AD 00 C0 10 FB 8D 10 C0 60"
  165. 164  PRINT : PRINT : CALL WA
  166. 165  HOME 
  167. 166  PRINT "NEXT TYPE 300L (PRESS RETURN)"
  168. 167  PRINT "AND YOU SHOULD SEE........."
  169. 168  PRINT : PRINT 
  170. 169  PRINT "0300-   AD 00 C0    LDA   $C000"
  171. 170  PRINT "0303-   10 FB       BPL   $0300"
  172. 171  PRINT "0305-   8D 10 C0    STA   $C010"
  173. 172  PRINT "0308-   60          RTS        "
  174. 173  PRINT "0309-   00          BRK"
  175. 174  PRINT "030A-   00          BRK"
  176. 175  PRINT "030B-   00          BRK"
  177. 176  PRINT "030C-   00          BRK"
  178. 177  VTAB 8: HTAB 24: PRINT " <-END OF WAIT"
  179. 178  VTAB 13: HTAB 1: PRINT "AND SO ON.."
  180. 179  PRINT : PRINT "YOU JUST ENTERED A MACHINE LANGUAGE"
  181. 180  PRINT "PROGRAM. NOT TOO HARD, WAS IT! "
  182. 181  PRINT : PRINT "WHILE YOU ARE IN THE "C$"MONITOR"C$
  183. 182  PRINT "LOOK AROUND AND SEE AREAS THAT MIGHT"
  184. 183  PRINT "BE AVAILABLE FOR "C$"WAIT"C$" TO LIVE IN."
  185. 184  PRINT "ANY AREA THAT HAS A "C$"00"C$" AND "C$"BRK"C$
  186. 185  PRINT "IN IT IS OPEN FOR YOUR USE."
  187. 186  CALL WA
  188. 187  HOME 
  189. 188  PRINT "TO SEARCH THE MEMORY JUST TYPE "C$"L"C$
  190. 189  PRINT : PRINT "THIS MEANS LIST. ALWAYS START AT"
  191. 190  PRINT "LOCATION $300 (THIS IS DECIMAL 768)"
  192. 191  PRINT "AND EVERY "C$"L"C$" YOU ENTER WILL"
  193. 192  PRINT "LIST 20 MEMORY LOCATIONS FROM $300."
  194. 193  PRINT : PRINT "READ YOUR APPLE REFERENCE MANUAL"
  195. 194  PRINT "TO LOCATE MEMORY LOCATIONS THAT YOU"
  196. 195  PRINT "CAN USE. THIS MANUAL LISTS EVERYTHING"
  197. 196  PRINT "YOU NEED TO KNOW ABOUT USING THE"
  198. 197  PRINT C$"MONITOR."C$" YOU CAN'T HURT YOUR"
  199. 198  PRINT "APPLE FROM THE KEYBOARD, SO DON'T"
  200. 199  PRINT "BE AFRAID. LOOK AROUND AND LEARN."
  201. 200  PRINT : PRINT "OK LETS MOVE ALONG......."
  202. 201  PRINT : PRINT "SO FAR YOU HAVE ENTERED THE MONITOR"
  203. 202  PRINT "AND PROGRAMED IN MACHINE LANGUAGE"
  204. 203  PRINT "NOW LET'S SAVE "C$"WAIT"C$" TO DISK"
  205. 204  PRINT "SO WE CAN USE IT IN OUR PROGRAMS."
  206. 205  CALL WA
  207. 206  HOME 
  208. 207  PRINT "SAVING "C$"WAIT"C$" TO DISK IS REALLY"
  209. 208  PRINT "SIMPLE. JUST TYPE THE FOLLOWING:"
  210. 209  PRINT : PRINT "BSAVE WAIT,A$300,L$009"
  211. 210  PRINT : PRINT "THE WORD "C$"BSAVE"C$" LETS THE APPLE"
  212. 211  PRINT "KNOW YOU WANT TO SAVE A MACHINE LANGUAGE"
  213. 212  PRINT "PROGRAM DIRECTLY FROM A MEMORY LOCATION."
  214. 213  PRINT "THE NEXT THING TO TELL THE APPLE IS"
  215. 214  PRINT "WHAT MEMORY LOCATION TO START SAVING"
  216. 215  PRINT "THE PROGRAM FROM. THE "C$",A$300"C$" TELLS"
  217. 216  PRINT "THE APPLE THAT YOU WANT TO SAVE THE"
  218. 217  PRINT "PROGRAM STARTING AT LOCATION $300"
  219. 218  PRINT : PRINT "THE "C$",L$009"C$" TELLS THE APPLE"
  220. 219  PRINT "HOW MUCH MEMORY TO SAVE. THIS NUMBER"
  221. 220  PRINT "IS THE LENGTH OF YOUR PROGRAM. IN"
  222. 221  PRINT "OUR CASE, "C$"WAIT"C$" IS 9 MEMORY LOCATIONS"
  223. 222  PRINT "LONG. $009 EQUALS NINE, JUST LIKE"
  224. 223  PRINT "THE REGULAR DECIMAL NUMBER 9."
  225. 224  CALL WA
  226. 225  HOME 
  227. 226  PRINT "I KNOW THE HEX NUMBERS MIGHT LOOK"
  228. 227  PRINT "DIFFERENT BUT THEY ARE EASY TO LEARN"
  229. 228  PRINT "AND USE. AFTER LOOKING THROUGH THE"
  230. 229  PRINT "MONITOR FOR A WHILE YOU WILL GET THE"
  231. 230  PRINT "HANG OF HEXADECIMAL NUMBERS. THERE"
  232. 231  PRINT "IS A CONVERSION CHART IN THE BOOK"
  233. 232  PRINT : PRINT C$"APPLE II USER'S GUIDE "C$" BY LON POOLE"
  234. 233  PRINT : PRINT "IN FACT, THIS IS THE BOOK THAT"
  235. 234  PRINT "TAUGHT ME "C$"APPLESOFT"C$" BASIC"
  236. 235  PRINT "LANGUAGE. PICK IT UP IF YOU DON'T"
  237. 236  PRINT "ALREADY HAVE IT. GOOD BOOK!!!"
  238. 237  PRINT : PRINT "AND TO CONTINUE; YOU MUST USE"
  239. 238  PRINT "A NAME FOR YOUR PROGRAM. WE USED "C$"WAIT"C$
  240. 239  PRINT : PRINT "SO HERE AGAIN IS THE WAY TO SAVE"
  241. 240  PRINT "YOUR PROGRAM:"
  242. 241  PRINT : PRINT "BSAVE WAIT,A$300,L$009"
  243. 242  CALL WA: HOME 
  244. 243  PRINT "NOT TOO HARD TO SAVE, WAS IT?"
  245. 244  PRINT : PRINT "LET'S LOOK AT IT AGAIN:"
  246. 245  PRINT : PRINT "BSAVE WAIT,A$300,L$009"
  247. 246  PRINT : PRINT "JUST TELL THE APPLE THE NAME OF"
  248. 247  PRINT "YOUR PROGRAM, THE STARTING ADDRESS"
  249. 248  PRINT "IN MEMORY, AND THE LENGTH OF YOUR"
  250. 249  PRINT "PROGRAM. THAT'S IT. (DON'T FORGET"
  251. 250  PRINT "THE COMMAS BEFORE THE A AND L.)"
  252. 251  PRINT : PRINT "WELL, WE ENTERED AND SAVED OUR"
  253. 252  PRINT "MACHINE LANGUAGE PROGRAM, NOW LET'S"
  254. 253  PRINT "USE IT IN A APPLESOFT PROGRAM."
  255. 254  CALL WA: HOME 
  256. 255  PRINT "TO USE "C$"WAIT"C$" IN A PROGRAM"
  257. 256  PRINT "WE SHOULD BEGIN THE PROGRAM LIKE SO:"
  258. 257  PRINT : PRINT "100 REM YOUR PROGRAM"
  259. 258  PRINT 
  260. 259  PRINT "110 D$=CHR$(4) : REM CTRL-D"
  261. 260  PRINT 
  262. 261  PRINT "120 PRINT D$;"C$"BLOAD WAIT,A$300"C$
  263. 262  PRINT 
  264. 263  PRINT "130 W = 768"
  265. 264  PRINT 
  266. 265  PRINT : PRINT "THE REST OF OUR PROGRAM CONTINUES"
  267. 266  PRINT : PRINT "NOW, TO HALT OUR PROGRAM JUST TYPE"
  268. 267  PRINT : PRINT "A LINE NUMBER : CALL W"
  269. 268  PRINT : PRINT "EACH TIME YOU "C$"CALL W"C$" THE PROGRAM"
  270. 269  PRINT "WILL STOP AND "C$"WAIT"C$" FOR A KEYPRESS."
  271. 270  CALL WA: HOME 
  272. 271  PRINT "SURE WAS SIMPLE, WASN'T IT!"
  273. 272  PRINT : PRINT "TRY THIS PROGRAM ON YOUR OWN."
  274. 273  PRINT "IF YOU HAVE TROUBLE, THAT'S OK. WE"
  275. 274  PRINT "WILL ONLY MASTER THIS FUNNY LITTLE"
  276. 275  PRINT "BOX IF WE TRY AND TRY AGAIN."
  277. 276  PRINT : PRINT "YOU MAY (1) RUN AGAIN"
  278. 277  PRINT : PRINT "(2) PRINT INSTRUCTIONS ON YOUR PRINTER"
  279. 278  PRINT 
  280. 279  PRINT "(3) END "
  281. 280  PRINT : PRINT "WHICH NUMBER 1 2 OR 3 ";: GET A$
  282. 281  PRINT : IF A$ = "1"  THEN 3
  283. 282  IF A$ = "3"  THEN  TEXT : HOME : VTAB 12: HTAB 1: PRINT "THE END": PRINT : PRINT "<CTRL-D>RUN MENU"
  284. 283  IF A$ >"3"  OR A$ <"1"  THEN A$ = "3": GOTO 282
  285. 284  PRINT : PRINT "PRINT INSTRUCTIONS, OK."
  286. 285  PRINT : PRINT "TURN ON YOUR PRINTER AND PRESS ANY KEY"
  287. 286  CALL WA
  288. 287  PRINT : PRINT  CHR$(4);"PR#1"
  289. 288  PRINT  CHR$(9);"80N"
  290. 289 T$ = "WAIT":L =  LEN(T$)
  291. 290  HTAB 40 -L/2: PRINT T$
  292. 291  FOR I = 1 TO 80: PRINT "-";: NEXT I
  293. 292  PRINT : PRINT 
  294. 293  PRINT "THE WAIT ROUTINE IS AS FOLLOWS:"
  295. 294  PRINT : PRINT "ENTER THE MONITOR WITH A CALL-151"
  296. 295  PRINT : PRINT "TYPE 300L"
  297. 296  PRINT : PRINT "ENTER THE PROGRAM:"
  298. 297  PRINT : PRINT "300:AD 00 C0 10 FB 8D 10 C0 60"
  299. 298  PRINT : PRINT "TO SAVE THE PROGRAM TYPE:"
  300. 299  PRINT : PRINT "BSAVE WAIT,A$300,L$009"
  301. 300  PRINT : PRINT "TO USE THE PROGRAM, ADD THE LINES"
  302. 301  PRINT : PRINT "10 PRINT CHR$(4);"C$"BLOAD WAIT;A$300"C$
  303. 302  PRINT : PRINT "20 W = 768"
  304. 303  PRINT : PRINT "AT ANYPLACE IN YOUR PROGRAM TO USE WAIT, JUST TYPE THE LINE NUMBER AND:"
  305. 304  PRINT : PRINT "CALL W"
  306. 305  PRINT : PRINT "THAT'S IT. SIMPLE AS PIE."
  307. 306  PRINT : PRINT "THANKS FOR LOOKING"
  308. 307  PRINT 
  309. 308  PRINT  CHR$(4);"PR#0"
  310. 309  PRINT  CHR$(4);"RUN MENU"
  311. 310  REM ** ERROR ROUTINE **
  312. 311 PK =  PEEK(222):LINE =  PEEK(218) + PEEK(219) *256
  313. 312  TEXT : HOME : VTAB 12
  314. 313  PRINT "PROGRAM TERMINATED"
  315. 314  PRINT : PRINT "ERROR NUMBER ";PK
  316. 315  PRINT : PRINT "LINE NUMBER ";LINE
  317. 316  PRINT : PRINT "PRESS RETURN FOR MENU"
  318. 317  PRINT : PRINT "OR SPACE BAR TO END"
  319. 318  GET A$: PRINT : IF A$ = ""  THEN  PRINT  CHR$(4);"RUN MENU"
  320. 319  HOME : TEXT : PRINT : PRINT  CHR$(4)"RUNMENU"
  321. 320  REM     <CTRL-M><CTRL-M> THANK YOU<CTRL-M> ALL ROYAL BEAGLE <CTRL-M> BERT KERSEY: WHERE EVER YOU ARE<CTRL-M> WHOM WITHOUT YOUR HELP<CTRL-M> THIS PROGRAM WOULD NOT<CTRL-M> BE POSSIBLE